home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / LABLMENU.SAB < prev    next >
Text File  |  1990-07-14  |  2KB  |  58 lines
  1. set message off
  2. set error messages off
  3. set null " "
  4. label start
  5. cls
  6. display cp.dis
  7. write "LABLMENU.SAB" AT 2,36
  8. WRITE .USE AT 2,55
  9. write "Label Generation Menu" at 5,29
  10. write "A..... Run CUR.MAST Label Generation Program        " at 7,10
  11. write "B..... Run Custom Label Program                     " at 8,10
  12. write "C..... Run Company Labels Program                   " at 9,10
  13. write "D.....                                              " at 10,10
  14. write "E.....                                              " at 11,10
  15. write "F.....                                              " at 12,10
  16. write "G.....                                              " at 13,10
  17. write "H.....                                              " at 14,10
  18. write "I.....                                              " at 15,10
  19. write "<ESC>. Exit Label Menu Program                      " at 16,10
  20. set v opn to ""
  21. fillin opn using "Enter Selection  -->  " at 19,10
  22.  IF OPN = "" THEN ; GOTO STOP ; ENDIF
  23.  if opn = a then ; GOTO OPNA ; ENDIF
  24.  if opn = b then ; GOTO OPNB ; ENDIF
  25.  if opn = c then ; GOTO OPNC ; ENDIF
  26.  if opn = d then ; GOTO OPND ; ENDIF
  27.  if opn = e then ; GOTO OPNE ; ENDIF
  28.  if opn = f then ; GOTO OPNF ; ENDIF
  29.  if opn = g then ; GOTO OPNG ; ENDIF
  30.  if opn = h then ; GOTO OPNH ; ENDIF
  31.  if opn = i then ; GOTO OPNI ; ENDIF
  32. goto start
  33. label opna
  34.     run labels.sab
  35.   goto start
  36. label opnb
  37.     run CUSTLAB.SAB
  38.   goto start
  39. label opnc
  40.     run sablabel.sab
  41.   goto start
  42. label opnd
  43.   goto start
  44. label opne
  45.   goto start
  46. label opnf
  47.   goto start
  48. label opng
  49.   goto start
  50. label opnh
  51.   goto start
  52. label opni
  53.   goto start
  54. label STOP
  55.   cls
  56.   return
  57.  
  58.